﻿Imports DevComponents.DotNetBar

Public Class ucDSHanghoa

    Private dtHH As DataTable
    Private itemBUS As New ItemsBUS()

    Private Sub newButton_Click(sender As Object, e As EventArgs) Handles newButton.Click
        'Dim uc As New ucCapnhathanghoa1(0, grdItem.SelectedRows(0))
        ''Dim uc As New ucThemHangHoa(0, grdItem.SelectedRows(0))
        'uc.Dock = DockStyle.Fill
        'AddHandler uc.Closed, AddressOf Closed
        'Dim parent = DirectCast(Application.OpenForms.Item(0), MetroAppForm)
        'parent.ShowModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Left)
        ''Me.Controls.Add(uc)
        Dim uc As New ucCapnhathanghoa
        Dim parent = DirectCast(Application.OpenForms.Item(0), Main)
        parent.ShowModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Left)

    End Sub

    Private Sub Closed(sender As Object)
        'Dim uc = DirectCast(sender, ucCapnhathanghoa1)
        'MessageBoxEx.Show(uc.Cancelled)
    End Sub

    Private Sub FindNow_Click(sender As Object, e As EventArgs) Handles FindNow.Click
        LabelXTungay.Visible = True
        DateTimeInputTungay.Visible = True
        LabelXDenngay.Visible = True
        DateTimeInputDenngay.Visible = True
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        mdQuanLyBanHang.InitQuanLyBanHang()
        LoadData()
        ReloadWidthColumn()
        LoadComboboxSearch()
    End Sub

    Public Sub LoadData()
        dtHH = itemBUS.Items_List().Tables(0)
        grdItem.DataSource = dtHH
        grdItem.Sort(grdItem.Columns(1), System.ComponentModel.ListSortDirection.Ascending)
    End Sub

    Public Sub LoadComboboxSearch()
        For Each col As DataGridViewColumn In grdItem.Columns
            If col.Visible = True Then
                Dim ci As New ComboBoxItem(col.Name, col.HeaderText)
                ci.Tag = col.Tag
                cbSearchIn.Items.Add(ci)
            End If
        Next
        cbSearchIn.SelectedIndex = 0
    End Sub

    Public Sub ReloadWidthColumn()
        grdItem.Columns(0).Width = 70
        grdItem.Columns(0).Visible = False
        grdItem.Sort(grdItem.Columns(1), System.ComponentModel.ListSortDirection.Ascending)

        grdItem.Columns(1).Width = 100
        grdItem.Columns(1).HeaderText = "Mã hàng"
        grdItem.Columns(1).Name = "mahang"
        grdItem.Columns(1).Tag = "string"

        grdItem.Columns(2).Width = 170
        grdItem.Columns(2).HeaderText = "Tên hàng"
        grdItem.Columns(2).Name = "tenhang"
        grdItem.Columns(2).Tag = "string"

        grdItem.Columns(3).Width = 150
        grdItem.Columns(3).HeaderText = "Tên danh mục"
        grdItem.Columns(3).Name = "tendanhmuc"
        grdItem.Columns(3).Tag = "string"

        grdItem.Columns(4).Width = 150
        grdItem.Columns(4).HeaderText = "Mô tả"
        grdItem.Columns(4).Name = "mota"
        grdItem.Columns(4).Tag = "String"

        grdItem.Columns(5).Visible = False

        grdItem.Columns(6).Width = 100
        grdItem.Columns(6).HeaderText = "Nhà sản xuất"
        grdItem.Columns(6).Name = "nhasanxuat"
        grdItem.Columns(6).Tag = "string"

        grdItem.Columns(7).Width = 150
        grdItem.Columns(7).HeaderText = "Nhà cung cấp chính"
        grdItem.Columns(7).Name = "nhacungcapchinh"
        grdItem.Columns(7).Tag = "string"

        grdItem.Columns(8).Width = 150
        grdItem.Columns(8).HeaderText = "Nhà cung cấp phụ"
        grdItem.Columns(8).Name = "nhacungcapphu"
        grdItem.Columns(8).Tag = "string"

        grdItem.Columns(9).Width = 75
        grdItem.Columns(9).HeaderText = "Giá mua"
        grdItem.Columns(9).Name = "giamua"
        grdItem.Columns(9).Tag = "integer"

        grdItem.Columns(10).Width = 75
        grdItem.Columns(10).HeaderText = "Giá bán"
        grdItem.Columns(10).Name = "giaban"
        grdItem.Columns(10).Tag = "integer"

        grdItem.Columns(11).Width = 75
        grdItem.Columns(11).HeaderText = "Số lượng"
        grdItem.Columns(11).Name = "soluong"
        grdItem.Columns(11).Tag = "integer"

        grdItem.Columns(12).Width = 50
        grdItem.Columns(12).HeaderText = "Đơn vị"
        grdItem.Columns(12).Name = "donvi"
        grdItem.Columns(12).Tag = "string"

        grdItem.Columns(13).Width = 100
        grdItem.Columns(13).HeaderText = "Ghi chú"
        grdItem.Columns(13).Name = "ghichu"
        grdItem.Columns(13).Tag = "string"


        grdItem.Columns(14).Width = 100
        grdItem.Columns(14).HeaderText = "Người tạo"
        grdItem.Columns(14).Name = "nguoitao"
        grdItem.Columns(14).Tag = "String"

        grdItem.Columns(15).Width = 150
        grdItem.Columns(15).HeaderText = "Ngày tạo"
        grdItem.Columns(15).Name = "ngaytao"
        grdItem.Columns(15).Tag = "Date"

        grdItem.Columns(16).Width = 100
        grdItem.Columns(16).HeaderText = "Người sửa"
        grdItem.Columns(16).Name = "nguoisua"
        grdItem.Columns(16).Tag = "String"

        grdItem.Columns(17).Width = 150
        grdItem.Columns(17).HeaderText = "Ngày sửa"
        grdItem.Columns(17).Name = "ngaysua"
        grdItem.Columns(17).Tag = "Date"

        grdItem.Columns(18).Visible = False

        grdItem.Columns(19).Visible = False


    End Sub

    Public Sub showdatecontrols()
        tbSearchStr.Visible = False
        LabelXTukhoa.Visible = False
        LabelXTungay.Visible = True
        DateTimeInputTungay.Visible = True
        LabelXDenngay.Visible = True
        DateTimeInputDenngay.Visible = True
    End Sub

    Public Sub hidedatecontrols()
        tbSearchStr.Visible = True
        LabelXTukhoa.Visible = True
        LabelXTungay.Visible = False
        DateTimeInputTungay.Visible = False
        LabelXDenngay.Visible = False
        DateTimeInputDenngay.Visible = False
    End Sub


    Private Sub cbSearchIn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbSearchIn.SelectedIndexChanged
        Select Case cbSearchIn.SelectedIndex
            Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14
                hidedatecontrols()
                tbSearchStr.WatermarkText = "Nhập thông tin tìm kiếm"
                tbSearchStr.Mask = ""

            Case 13, 15
                'tbSearchStr.WatermarkText = "Nhập theo ngày-tháng-năm"
                'tbSearchStr.Mask = "00/00/0000"
                showdatecontrols()
                DateTimeInputTungay.Value = Now
                DateTimeInputDenngay.Value = Now

            Case Else

        End Select
        tbSearchStr.Text = ""
    End Sub

    Private Sub btEdit_Click(sender As Object, e As EventArgs) Handles btEdit.Click
        'Dim uc As New ucCapnhathanghoa1(1, grdItem.SelectedRows(0))
        'uc.Dock = DockStyle.Fill
        'AddHandler uc.Closed, AddressOf uc_Closed
        'Dim parent = DirectCast(Application.OpenForms.Item(0), MetroAppForm)
        'parent.ShowModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Left)
    End Sub

    Private Sub uc_Closed(sender As Object)
        LoadData()
    End Sub

End Class